home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / cli / cmp.lha / CMP / rexxc / dopus / SelectSame.dopus < prev   
Encoding:
Text File  |  1995-01-04  |  602 b   |  37 lines
  1. /*
  2.   Selektiert Files im Zielverzeichnis, die auch im Quellverzeichnis
  3.     vorkommen.
  4.  
  5.   Quelle Dir ist nichts selectiert, es werden alle Einträge geprüft.
  6.  
  7.   Quelle Dir ist mindestens ein Eintrag selectiert, es werden nur die
  8.     selectierten Einträge geprüft.
  9.  
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14. address 'DOPUS.1'
  15. 'busy on'
  16.  
  17. 'GetselectedAll /'
  18. selected = result
  19.  
  20. if selected = 'RESULT' then do
  21.   'GetAll /'
  22.   selected = result
  23. end
  24.  
  25. if selected ~= 'RESULT' then do
  26.   'OtherWindow'
  27.   do while selected ~= ''
  28.     parse var selected toselect'/'selected
  29.     'SelectFile "'toselect'" 1 1'
  30.   end
  31. end
  32.  
  33. 'busy off'
  34.  
  35. exit 0
  36.  
  37.